source("plotting.R")
library(tidyverse)


shock_historical_voting =  read_csv("../shock_historical_voting.csv")

#historical_plot = historical_voting_plot(shock_historical_voting)


#save_plot("figures_for_paper/a7.pdf", 
#          historical_plot, base_height = 10, base_asp = 1.1,device = cairo_pdf)
historical_plot = historical_voting_plot_default(shock_historical_voting)


save_plot("figures_for_replication/a7.pdf", 
          historical_plot, base_height = 10, base_asp = 1.1,device = cairo_pdf)
